home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows Expert
/
Windows Expert.iso
/
others
/
amimacro.zip
/
SMARTYPE.SMM
< prev
next >
Wrap
INI File
|
1993-02-22
|
14KB
|
1,008 lines
[ver]
4
[sty]
_macro.sty
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
PostScript Printer
[port]
FILE:
[lang]
1
[desc]
Typeset characters throughout document
Lotus WPD Marketing
Intermediate
Replace, Type, CurChar$
noautorun
730444621
31
672426590
353
5
0
0
0
0
0
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[l1]
0
[pg]
5
56 0 9 0 0 1 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
115 0 12 0 0 1 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
164 0 28 0 0 0 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
218 0 16 0 0 0 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
224 0 0 1025 0 0 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
<:#216,10800>Macro by <+!>Charlie Pappas<-!>
<:#216,10800>define IsOKToRun(menuname) GetInfo(217, 24, %1);
<:#216,10800>
@Function@<:#216,10800>function typeset()
<:#216,10800>result=IsOKToRun(FindReplace)
<:#216,10800>if result != 1
<:#216,10800> exit function
<:#216,10800>endif
<:#216,10800>oncancel endit
<:#216,10800>onerror endit
<:#216,10800>dim ab(25)
<:#216,10800>ab(1)="Mr"
<:#216,10800>ab(2)="Mrs"
<:#216,10800>ab(3)="Ms"
<:#216,10800>ab(4)="Dr"
<:#216,10800>ab(5)="al"
<:#216,10800>ab(6)="etc"
<:#216,10800>ab(7)="pp"
<:#216,10800>ab(8)="St"
<:#216,10800>ab(9)="Ave"
<:#216,10800>ab(10)="vs"
<:#216,10800>ab(11)="vol"
<:#216,10800>ab(12)="Eds"
<:#216,10800>ab(13)="Ed"
<:#216,10800>ab(14)="No"
<:#216,10800>ab(15)="Pl"
<:#216,10800>ab(16)="Rd"
<:#216,10800>ab(17)="Rt"
<:#216,10800>ab(18)="Terr"
<:#216,10800>ab(19)="Blvd"
<:#216,10800>ab(20)="Drs"
<:#216,10800>ab(21)="cf"
<:#216,10800>ab(22)="viz"
<:#216,10800>ab(23)="Rev"
<:#216,10800>ab(24)="ed"
<:#216,10800>ab(25)="viz"
<:#216,10800>darkmode(0)
<:#216,10800>type("<[>ctrlhome]")
<:#216,10800>dblsp=decide("Do you want to double-space after sentences?","")
<:#216,10800>If dblsp=0
<:#216,10800> goto dashes
<:#216,10800>Endif
@Function@<:#216,10800>DoubleSpaces:
<:#216,10800>StatusBarMsg("Double spacing after sentences...")
<:#216,10800>While (1)
<:#216,10800> go = replace(0,0,1,".","")
<:#216,10800> if go <<<;>1
<:#216,10800> break
<:#216,10800> endif
<:#216,10800> type("<[>esc]")
<:#216,10800> sp=curchar$()
<:#216,10800> If sp=""
<:#216,10800> goto skip2end
<:#216,10800> endif
<:#216,10800> sp=asc(sp)
<:#216,10800> if sp=44
<:#216,10800> type("<[>shiftctrlright], ")
<:#216,10800> goto skip2end
<:#216,10800> endif
<:#216,10800> if sp<<<;>32
<:#216,10800> type("<[>left]<[>left]<[>ShiftRight]<[>ShiftRight]<[>ShiftRight]<[>ShiftRight]")
<:#216,10800> egie=curshade$()
<:#216,10800> if egie="e.g." or egie="i.e." or egie="a.m." or egie="p.m."
<:#216,10800> type("<[>right]")
<:#216,10800> goto skip2end
<:#216,10800> endif
<:#216,10800> darkmode(0)
<:#432,10800> UserControl("There is no space following this period. Make your corrections and click 'RESUME'.")
<:#216,10800> goto skip2end
<:#216,10800> endif
<:#216,10800> type("<[>Right]")
<:#216,10800> let1=curchar$()
<:#216,10800> If let1=""
<:#216,10800> type("<[>backspace]")
<:#216,10800> goto skip2end
<:#216,10800> endif
<:#216,10800> dblsp=asc(let1)
<:#216,10800> If dblsp=32
<:#216,10800> dblsp=1
<:#216,10800> else dblsp=0
<:#216,10800> endif
<:#216,10800> if dblsp=0
<:#216,10800> let=asc(let1)
<:#216,10800> If let<<91
<:#216,10800> cap=1
<:#216,10800> else cap=0
<:#216,10800> endif
<:#216,10800> endif
<:#216,10800> if dblsp=1
<:#216,10800> type("<[>right]")
<:#216,10800> let2=curchar$()
<:#216,10800> If let2=""
<:#216,10800> type("<[>backspace]<[>backspace]")
<:#216,10800> goto skip2end
<:#216,10800> endif
<:#216,10800> let=asc(let2)
<:#216,10800> If let<<91
<:#216,10800> cap=1
<:#216,10800> else cap=0
<:#216,10800> endif
<:#216,10800> endif
<:#216,10800> type("<[>CTRLLeft]")
<:#216,10800> para=curchar$()
<:#216,10800> t=asc(para)
<:#216,10800> If t=41 or t=93 or t=34
<:#216,10800> l=2
<:#216,10800> type("<[>right]<[>right]")
<:#216,10800> goto skip1
<:#216,10800> else type("<[>CTRLSHIFTLeft]")
<:#216,10800> endif
<:#216,10800> wbper=curshade$()
<:#216,10800> type("<[>Esc]<[>CTRLRight]<[>right]")
<:#216,10800> l=len(wbper)
<:#216,10800> if l = 1
<:#216,10800> goto skip0
<:#216,10800> endif
<:#216,10800> for i = 1 to 25
<:#216,10800> if wbper=ab(i)
<:#216,10800> l=1
<:#216,10800> break
<:#216,10800> endif
<:#216,10800> l=2
<:#216,10800> next
@Function@<:#216,10800> Skip0:
<:#216,10800> If l=1 and dblsp=0
<:#216,10800> goto skip2end
<:#216,10800> elseif l=1 and dblsp=1
<:#216,10800> type("<[>Del]")
<:#216,10800> goto skip2end
<:#216,10800> endif
@Function@<:#216,10800> skip1:
<:#216,10800> If l=2 and dblsp=1 and cap =1
<:#216,10800> goto skip2end
<:#216,10800> elseif l=2 and dblsp=1 and cap =0
<:#216,10800> darkmode(0)
<:#432,10800> x=decide("There are two spaces after this period, but the next word is not capitalized. Do you want to capitalize the next word?")
<:#216,10800> If x=1
<:#216,10800> newlet=ucase$(let2)
<:#216,10800> type("<[>CTRLRight]<[>Del]{newlet}")
<:#216,10800> goto skip2end
<:#216,10800> endif
<:#432,10800> x=decide("There are two spaces after this period, but the next word is not capitalized. Do you want to delete one of the spaces?")
<:#216,10800> if x=1
<:#216,10800> type("<[>Del]")
<:#216,10800> endif
<:#216,10800> goto skip2end
<:#216,10800> elseif l=2 and dblsp=0 and cap =1
<:#216,10800> type(" ")
<:#216,10800> goto skip2end
<:#216,10800> elseif l=2 and dblsp=0 and cap =0
<:#216,10800> darkmode(0)
<:#432,10800> x=decide("There is only one space after this period, but the next word is not capitalized. Do you want to capitalize the next word?")
<:#216,10800> If x=1
<:#216,10800> newlet=ucase$(let1)
<:#216,10800> type("<[>CTRLRight]<[>Del]{newlet}")
<:#216,10800> endif
<:#216,10800> goto skip2end
<:#216,10800> Endif
@Function@<:#216,10800> Skip2end:
<:#216,10800> darkmode(0)
<:#216,10800>Wend
@Function@<:#216,10800>Dashes:
<:#216,10800>StatusBarMsg("Converting em dashes...")
<:#216,10800>replace("" "" 1024 "--" "</W>")
<:#216,10800>type("<[>ctrlhome]")
@Function@<:#216,10800>SingleQuotes:
<:#216,10800>StatusBarMsg("Converting single quotes...")
<:#216,10800>while (1)
<:#216,10800> go = replace("" "" "" "'" "")
<:#216,10800> if go <<<;> 1
<:#216,10800> break
<:#216,10800> endif
<:#216,10800> type("<[>esc]")
<:#216,10800> if CurChar$() = "'"
<:#216,10800> type("<[>left]<[>shiftright]<[>shiftright]</T>")
<:#216,10800> else
<:#216,10800> if not "" = GetTextBeforeCursor$()
<:#216,10800> type("<[>left]<[>left]")
<:#216,10800> endif
<:#216,10800> if curchar$() = " " or curchar$() = ""
<:#216,10800> if curchar$() <<<;> ""
<:#216,10800> type("<[>right]")
<:#216,10800> endif
<:#216,10800> type("<[>shiftright]")
<:#216,10800> type("</Q>")
<:#216,10800> else
<:#216,10800> type("<[>right]<[>shiftright]")
<:#216,10800> type("</R>")
<:#216,10800> endif
<:#216,10800> endif
<:#216,10800>wend
<:#216,10800>type("<[>ctrlhome]")
@Function@<:#216,10800>DoubleQuotes:
<:#216,10800>StatusBarMsg("Converting double quotes...")
<:#216,10800>goto jump
<:#216,10800>while (1)
<:#216,10800> go = replace("" "" "" """" "")
<:#216,10800> if go <<<;> 1
<:#216,10800> break
<:#216,10800> endif
<:#216,10800> type("<[>esc]")
<:#216,10800> if curchar$() = " "
<:#216,10800> type("<[>shiftleft]</T>")
<:#216,10800> else
<:#216,10800> type("<[>shiftleft]</S>")
<:#216,10800> endif
<:#216,10800>wend
@Function@<:#216,10800>jump:
<:#216,10800>while (1)
<:#216,10800> go = Replace("" "" "" """" "") ' open dquote
<:#216,10800> if go <<<;> 1
<:#216,10800> break
<:#216,10800> endif
<:#216,10800> type("</S>")
<:#216,10800> Replace("" "" "" """" "")
<:#216,10800> type("</T>")
<:#216,10800>wend
<:#216,10800>StatusBarMsg("")
<:#432,10800>message("All Quotes, dashes and apostrophes within file have been converted to typographical equivalent.")
@Function@<:#216,10800>endit:
<:#216,10800>StatusBarMsg("")
<:#216,10800>darkmode(0)
<:#216,10800>end function
<:#216,10800>
>
[Embedded]
00008870
>
[macsum] 1
typeset 0 0 18 3
[macse]
14 typeset
0 1313 217 24 451
13
8 1
6 1
5 1
18 1
11 00000081
6 0
15
9
19 00004633
20 00004633
5 25
21 2 [X]
5 1
7 "Mr"
23 2
5 2
7 "Mrs"
23 2
5 3
7 "Ms"
23 2
5 4
7 "Dr"
23 2
5 5
7 "al"
23 2
5 6
7 "etc"
23 2
5 7
7 "pp"
23 2
5 8
7 "St"
23 2
5 9
7 "Ave"
23 2
5 10
7 "vs"
23 2
5 11
7 "vol"
23 2
5 12
7 "Eds"
23 2
5 13
7 "Ed"
23 2
5 14
7 "No"
23 2
5 15
7 "Pl"
23 2
5 16
7 "Rd"
23 2
5 17
7 "Rt"
23 2
5 18
7 "Terr"
23 2
5 19
7 "Blvd"
23 2
5 20
7 "Drs"
23 2
5 21
7 "cf"
23 2
5 22
7 "viz"
23 2
5 23
7 "Rev"
23 2
5 24
7 "ed"
23 2
5 25
7 "viz"
23 2
0 292 0
0 6 "[16420]"
0 2 "Do you want to double-space after sentences?" ""
13
8 3
6 3
5 0
18 0
11 00000757
10 00003539
0 789 "Double spacing after sentences..."
5 1
11 00003539
2 488 1 0 0 1 "." ""
13
8 4
6 4
5 1
18 1
11 00000891
10 00003539
0 6 "[27]"
0 282
13
8 5
6 5
7 ""
18 0
11 00000962
10 00003517
0 40 "{5}"
13
8 5
6 5
5 44
18 0
11 00001043
0 6 "[20519], "
10 00003517
6 5
5 32
18 1
11 00001378
0 6 "[37][37][4135][4135][4135][4135]"
0 24
13
8 6
6 6
7 "e.g."
18 0
6 6
7 "i.e."
18 0
6 6
7 "a.m."
18 0
6 6
7 "p.m."
18 0
1 2
1 2
1 2
11 00001265
0 6 "[39]"
10 00003517
0 292 0
0 7 "There is no space following this period. Make your corrections and click 'RESUME'."
10 00003517
0 6 "[39]"
0 282
13
8 7
6 7
7 ""
18 0
11 00001460
0 6 "[8]"
10 00003517
0 40 "{7}"
13
8 3
6 3
5 32
18 0
11 00001534
5 1
8 3
10 00001544
5 0
8 3
6 3
5 0
18 0
11 00001657
0 40 "{7}"
13
8 8
6 8
5 91
18 5
11 00001647
5 1
8 9
10 00001657
5 0
8 9
6 3
5 1
18 0
11 00001858
0 6 "[39]"
0 282
13
8 10
6 10
7 ""
18 0
11 00001773
0 6 "[8][8]"
10 00003517
0 40 "{10}"
13
8 8
6 8
5 91
18 5
11 00001848
5 1
8 9
10 00001858
5 0
8 9
0 6 "[16421]"
0 282
13
8 11
0 40 "{11}"
13
8 12
6 12
5 41
18 0
6 12
5 93
18 0
6 12
5 34
18 0
1 2
1 2
11 00002043
5 2
8 13
0 6 "[39][39]"
10 00002491
10 00002058
0 6 "[20517]"
0 24
13
8 14
0 6 "[27][16423][39]"
0 14 "{14}"
13
8 13
6 13
5 1
18 0
11 00002163
10 00002338
5 1
8 15
5 25
6 15
18 2
12 00002253
10 00002338
5 1
6 15
3 0
8 15
10 00002174
6 14
6 15
22 2
18 0
11 00002314
5 1
8 13
10 00002338
5 2
8 13
10 00002218
6 13
5 1
18 0
6 3
5 0
18 0
1 1
11 00002415
10 00003517
10 00002491
6 13
5 1
18 0
6 3
5 1
18 0
1 1
11 00002491
0 6 "[46]"
10 00003517
6 13
5 2
18 0
6 3
5 1
18 0
6 9
5 1
18 0
1 1
1 1
11 00002589
10 00003517
10 00003517
6 13
5 2
18 0
6 3
5 1
18 0
6 9
5 0
18 0
1 1
1 1
11 00003101
0 292 0
0 2 "There are two spaces after this period, but the next word is not capitalized. Do you want to capitalize the next word?"
13
8 16
6 16
5 1
18 0
11 00002896
0 18 "{10}"
13
8 17
0 6 "[16423][46]{17}"
10 00003517
0 2 "There are two spaces after this period, but the next word is not capitalized. Do you want to delete one of the spaces?"
13
8 16
6 16
5 1
18 0
11 00003075
0 6 "[46]"
10 00003517
10 00003517
6 13
5 2
18 0
6 3
5 0
18 0
6 9
5 1
18 0
1 1
1 1
11 00003208
0 6 " "
10 00003517
10 00003517
6 13
5 2
18 0
6 3
5 0
18 0
6 9
5 0
18 0
1 1
1 1
11 00003517
0 292 0
0 2 "There is only one space after this period, but the next word is not capitalized. Do you want to capitalize the next word?"
13
8 16
6 16
5 1
18 0
11 00003504
0 18 "{7}"
13
8 17
0 6 "[16423][46]{17}"
10 00003517
0 292 0
10 00000800
0 789 "Converting em dashes..."
2 488 1 "" "" 1024 "--" "</W>"
0 6 "[16420]"
0 789 "Converting single quotes..."
5 1
11 00004091
2 488 1 "" "" "" "'" ""
13
8 4
6 4
5 1
18 1
11 00003750
10 00004091
0 6 "[27]"
0 282
13
7 "'"
18 0
11 00003840
0 6 "[37][4135][4135]</T>"
10 00004078
7 ""
0 37
13
18 0
1 3
11 00003896
0 6 "[37][37]"
0 282
13
7 " "
18 0
0 282
13
7 ""
18 0
1 2
11 00004048
0 282
13
7 ""
18 1
11 00004009
0 6 "[39]"
0 6 "[4135]"
0 6 "</Q>"
10 00004078
0 6 "[39][4135]"
0 6 "</R>"
10 00003656
0 6 "[16420]"
0 789 "Converting double quotes..."
10 00004362
5 1
11 00004362
2 488 1 "" "" "" """" ""
13
8 4
6 4
5 1
18 1
11 00004251
10 00004362
0 6 "[27]"
0 282
13
7 " "
18 0
11 00004331
0 6 "[4133]</T>"
10 00004349
0 6 "[4133]</S>"
10 00004156
5 1
11 00004520
2 488 1 "" "" "" """" ""
13
8 4
6 4
5 1
18 1
11 00004457
10 00004520
0 6 "</S>"
2 488 1 "" "" "" """" ""
0 6 "</T>"
10 00004362
0 789 ""
0 3 "All Quotes, dashes and apostrophes within file have been converted to typographical equivalent."
0 789 ""
0 292 0
6 0
15
9
00008895